option explicit	
Sub Main
dim A as double, B as double, C as double
A = inputbox("Unesi prvi broj")
B = inputbox("Unesi drugi broj")
C = A
A = B
B = C
msgbox(A)
msgbox(B)
End Sub